$draw info
!tab = primitive
!ifdef tab
	$dialog mtable title "Удаление примитива" text !tab ok "Удалить"
	!p_id = pid
	!ifdef p_id
		$draw del pid !p_id
	!delete p_id
	!endif
!delete tab
!else
	$dialog message text "Не задано ни одного примитива"
!endif 
